home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
Demos
/
Bombardier_PC
/
BSCRIPTS.CST
/
00051_Script_info init
< prev
next >
Wrap
Text File
|
1999-04-25
|
2KB
|
70 lines
-- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
-- Developed for Bombardier, Inc.
--
-- All programming developed by:
-- Robert Fabricant, Valerie Valoueva, Ossi Shaked,
-- Henry Sauvageot, Chris Howell & Chris Girand
--
-- Use of this code by parties other than @radical.media, inc. or their
--agents
-- without the express written consent of @radical.media, inc. AND Concurrent
-- New Media Group, L.L.C. is strictly prohibited.
------------------------------------------------------
-------*This script is not used in this version of the movie*----------
property item_sprt
on getPropertyDescriptionList
set description=[:]
addProp description,#item_sprt,[#default:6,#format:#integer,#comment:¼
"the sprite number of the appropriate menu item. "]
return description
end
on getBehaviorDescription
return "init script before any info menu marker. ¼
this script adjust the info menu highligh state when using presentation tool or index"
end
on enterframe
global gInfoSprt,gIImage
global gMode,gFlag
put "------------------------------------"
put gmode&&"mode"
put "empty mode"
put gInfoSprt&&"ginfosprt"
put gIImage&&"item"
if gInfoSprt <> item_sprt and gInfoSprt <>"" then
set the castnum of sprite gInfoSprt to gIImage
end if
if gInfoSprt <> item_sprt then
set gInfoSprt = item_sprt
put gInfoSprt&&"ginfosprt"
set gIImage = the castnum of sprite item_sprt
set the castnum of sprite item_sprt to the castnum of sprite item_sprt +2
put "ssss"
end if
resetTour
set the visible of sprite 22 to false
puppetsprite 22, false
updatestage
puppetSprite 22, true
updatestage
end